home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Spaced Out / DigitalVision: Spaced Out - Disc 1.iso / pc / data / images.dxr / Internal_56_new delete button.ls < prev    next >
Encoding:
Text File  |  2001-10-22  |  1.1 KB  |  37 lines
  1. property pDelim, pSourceRootFolder, pDestRootFolder, pButtonMode, pImageCode, pResFolder
  2. global gResFolder
  3.  
  4. on beginSprite me
  5.   pDelim = getPathDelim()
  6.   pDestRootFolder = baSysFolder("desktop") & member("CD_title_enter").text & pDelim
  7.   rootPath = getRootPath()
  8.   pSourceRootFolder = rootPath
  9.   pResFolder = gResFolder
  10. end
  11.  
  12. on mouseUp me
  13.   Section = utilsGetSection()
  14.   stateList = utilsGetState(Section)
  15.   pImageCode = stateList.imageCode
  16.   cdNameFolder = pResFolder & pDelim
  17.   imageCodeFileName = stateList.imageCode & ".jpg"
  18.   me.DeleteImage(cdNameFolder, imageCodeFileName)
  19. end
  20.  
  21. on DeleteImage me, cdNameFolder, imageCodeFileName
  22.   cursor(4)
  23.   fileToDelete = pDestRootFolder & cdNameFolder & imageCodeFileName
  24.   DeleteFile(fileToDelete)
  25.   utilsDeleteImageCode(pImageCode)
  26.   fileList = DirectoryToList(pDestRootFolder & cdNameFolder)
  27.   if (fileList = VOID) or (fileList = []) then
  28.     DeleteDirectory(pDestRootFolder & cdNameFolder)
  29.   end if
  30.   fileList = DirectoryToList(pDestRootFolder)
  31.   if (fileList = VOID) or (fileList = []) then
  32.     DeleteDirectory(pDestRootFolder)
  33.   end if
  34.   cursor(-1)
  35.   localJumpToThumbnails()
  36. end
  37.